home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 159
/
159.d81
/
b.star dump demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
76 lines
10 poke55,0:poke56,56:clr
12 pc$="12":pc$=pc$+pc$
14 dv=peek(186):ifdv<8thendv=8
16 poke53371,0
20 ml=49152:pd=52736:pc=52992:cm=828
40 sys57812"dump font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
50 sys57812"updriver",dv,0:poke780,0:poke781,0:poke782,206:sys65493
60 sys57812"updcodes",dv,0:poke780,0:poke781,0:poke782,207:sys65493
70 gosub52000
120 :
140 print"[147]";:poke53280,6:poke53281,1:poke53272,31
150 bk$="@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
152 rv$=" "
160 fori=1to24:printbk$;:next:printleft$(bk$,39)""
162 poke2023,0:poke2023+54272,6
164 fori=217to242:pokei,peek(i)or128:next
166 poke214,2:print:fori=1to3:printtab(8)left$(rv$,25):next
170 printtab(11)"[145][145][211] [212] [193] [210] [196] [213] [205] [208]"
180 poke214,8:print
190 fori=1to9:printtab(8)left$(rv$,25):next
192 poke214,9:print
200 printtab(12)"(1) single dump
210 [153][163]12)"(2) double dump"
212 [153][163]12)"(3) triple dump"
214 [153][163]12)"(4) quit
230 syscm,1024,64*256,1000:syscm,55296,68*256,1000
260 poke198,0
262 geta$:ifa$<"1"ora$>"4"then262
270 onval(a$)goto280,290,300,40000
280 f$="single dump c000":tb=26:goto310
290 f$="double dump c000":tb=13:goto310
300 f$="triple dump c000":tb=0
310 print"[147]"
312 poke214,6:print:fori=1to8:printtab(8)left$(rv$,25):next
320 poke214,8:print:printtab(16)"loading ":printtab(12)""f$
330 sys57812f$,dv,0:poke780,0:poke781,0:poke782,192:sys65493
340 poke214,7:print
350 printtab(9)" press a key to print
352 [153][163]9)" the previous screen.
354 printtab(9)" notice how star dump "
356 printtab(9)" can print screens in
358 [153][163]9)" memory even if they
360 printtab(9)" aren't showing.
370 [151]198,0
372 [161]a$:[139]a$[178]""[167]372
380 [158]ml,56[172]256,64[172]256,pd,pc:[158]ml[170]3,0,39,0,24,tb
382 [151]186,dv
390 [158]cm,64[172]256,1024,1000:[158]cm,68[172]256,55296,1000
400 [137]260
10000 d[178][194](186):n$[178]"b.star dump demo":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
50004 [142]
52000 a[178]0:i[178]0:ad[178]828
52002 [135]a:[139]a[179][177][171]1[167][151]ad[170]i,a:i[178]i[170]1:[137]52002
52004 [142]
52008 [131] 032,253,174,032,138,173,032
52010 [131] 247,183,132,176,133,177,032
52020 [131] 253,174,032,138,173,032,247
52030 [131] 183,132,178,133,179,032,253
52040 [131] 174,032,138,173,032,247,183
52050 [131] 073,255,133,181,152,073,255
52060 [131] 133,180,230,180,208,002,230
52070 [131] 181,160,000,177,176,145,178
52080 [131] 200,208,004,230,177,230,179
52090 [131] 230,180,208,241,230,181,208
52100 [131] 237,096,081,-1